#!/usr/bin/perl -w
use strict;
use CGI qw/:standard *table *div -nosticky/;
use CGI::Pretty qw/ :html3 /;
use CGI::Cookie;

use Includes;

my $c = new CGI;
my $HASHFILE = "/usr/local/www/.inc/hash";

my $cookie;

$cookie = new CGI::Cookie(
		-name=>'hash',
		-value=>Includes::get_hash(),
		-expires=>"+1y"
		);

# Log the information to syslog
# Make the basic HTML and form 
print header(-type => 'text/html',-cookie=>[$cookie]),
			start_html(
					-title=>"Do Gooder's R Us - Welcome",
					),

			div({id=>'main'},
					span("Cookie set"));
print end_html();
